/ Developer CD Series 1998 November: Tool Chest / Dev.CD Nov 98 TC.toast / Sample Code / Snippets / Networking / TCPClose / TCPClose.π / TCPClose.π.rsrc / ZONE_0

< prev

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 7f 8b d0 00 7f 8f d0 | 00 7f 8f f0 00 7f 90 a2 |........|........|
|00000010| 00 7f 91 16 00 7f 91 38 | 00 7f 93 d0 00 00 00 00 |.......8|........|
|00000020| 00 0a 00 0d 00 c1 00 a8 | 00 d0 01 ea 00 de 02 7e |........|.......~|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 60 00 00 e1 d4 |........|...`....|
|00000040| 00 0a ff d8 fe 16 03 3e | 02 96 00 00 00 00 00 00 |.......>|........|
|00000050| 00 00 00 00 00 00 00 00 | 00 00 00 40 00 00 e0 e0 |........|...@....|
|00000060| 00 0a 00 0d 00 c1 00 a8 | 00 d0 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 00 20 00 00 00 00 |........|... ....|
|00000080| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000090| 00 00 00 00 00 00 00 00 | 00 07 ff e4 00 00 e1 1c |........|........|
|000000a0| 00 00 67 de 00 00 00 00 | 00 00 14 50 00 00 e0 b4 |..g.....|...P....|
|000000b0| 00 0d 00 c1 00 0d 00 d0 | 00 a8 00 c1 00 a8 00 d0 |........|........|
|000000c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000100| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000110| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000130| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 8e 00 8f |........|........|
|00000140| 7f ff 03 40 00 00 00 00 | 00 00 13 b0 00 00 e0 d4 |...@....|........|
|00000150| 00 2c 00 a9 00 00 00 00 | 00 00 13 a0 00 c5 02 67 |.,......|.......g|
|00000160| 7f ff 00 aa 02 67 02 68 | 7f ff 02 6a 00 c5 00 c6 |.....g.h|...j....|
|00000170| 7f ff 02 6b 00 c6 02 68 | 7f ff 7f ff 74 72 65 61 |...k...h|....trea|
|00000180| 6d 28 53 74 00 00 00 00 | 00 00 13 70 2a 73 74 72 |m(St....|...p*str|
|00000190| 65 61 6d 29 0d 7b 0d 09 | 4f 53 45 72 72 20 65 72 |eam).{..|OSErr er|
|000001a0| 72 3b 0d 09 54 43 50 69 | 6f 70 62 20 70 42 6c 6f |r;..TCPi|opb pBlo|
|000001b0| 63 6b 3b 0d 09 50 74 72 | 20 63 6f 6e 6e 42 75 66 |ck;..Ptr| connBuf|
|000001c0| 66 65 72 3b 0d 09 6c 6f | 6e 67 20 63 6f 6e 6e 42 |fer;..lo|ng connB|
|000001d0| 75 66 66 65 72 4c 65 6e | 3b 0d 09 0d 09 63 6f 6e |ufferLen|;....con|
|000001e0| 6e 42 75 66 66 65 72 4c | 65 6e 20 3d 20 38 31 39 |nBufferL|en = 819|
|000001f0| 32 3b 0d 09 63 6f 6e 6e | 42 75 66 66 65 72 20 3d |2;..conn|Buffer =|
|00000200| 20 4e 65 77 50 74 72 28 | 63 6f 6e 6e 42 75 66 66 | NewPtr(|connBuff|
|00000210| 65 72 4c 65 6e 29 3b 0d | 09 69 66 20 28 4d 65 6d |erLen);.|.if (Mem|
|00000220| 45 72 72 6f 72 28 29 21 | 3d 6e 6f 45 72 72 29 0d |Error()!|=noErr).|
|00000230| 09 09 72 65 74 75 72 6e | 20 4d 65 6d 45 72 72 6f |..return| MemErro|
|00000240| 72 28 29 3b 0d 09 09 0d | 09 70 42 6c 6f 63 6b 2e |r();....|.pBlock.|
|00000250| 69 6f 43 52 65 66 4e 75 | 6d 20 3d 20 67 44 72 76 |ioCRefNu|m = gDrv|
|00000260| 72 52 65 66 3b 0d 09 70 | 42 6c 6f 63 6b 2e 63 73 |rRef;..p|Block.cs|
|00000270| 43 6f 64 65 20 3d 20 54 | 43 50 43 72 65 61 74 65 |Code = T|CPCreate|
|00000280| 3b 0d 09 70 42 6c 6f 63 | 6b 2e 63 73 50 61 72 61 |;..pBloc|k.csPara|
|00000290| 6d 2e 63 72 65 61 74 65 | 2e 72 63 76 42 75 66 66 |m.create|.rcvBuff|
|000002a0| 20 3d 20 63 6f 6e 6e 42 | 75 66 66 65 72 3b 0d 09 | = connB|uffer;..|
|000002b0| 70 42 6c 6f 63 6b 2e 63 | 73 50 61 72 61 6d 2e 63 |pBlock.c|sParam.c|
|000002c0| 72 65 61 74 65 2e 72 63 | 76 42 75 66 66 4c 65 6e |reate.rc|vBuffLen|
|000002d0| 20 3d 20 63 6f 6e 6e 42 | 75 66 66 65 72 4c 65 6e | = connB|ufferLen|
|000002e0| 3b 0d 09 70 42 6c 6f 63 | 6b 2e 63 73 50 61 72 61 |;..pBloc|k.csPara|
|000002f0| 6d 2e 63 72 65 61 74 65 | 2e 6e 6f 74 69 66 79 50 |m.create|.notifyP|
|00000300| 72 6f 63 20 3d 20 41 53 | 52 3b 0d 09 65 72 72 20 |roc = AS|R;..err |
|00000310| 3d 20 50 42 43 6f 6e 74 | 72 6f 6c 28 26 70 42 6c |= PBCont|rol(&pBl|
|00000320| 6f 63 6b 2c 66 61 6c 73 | 65 29 3b 0d 09 0d 09 2a |ock,fals|e);....*|
|00000330| 73 74 72 65 61 6d 20 3d | 20 70 42 6c 6f 63 6b 2e |stream =| pBlock.|
|00000340| 74 63 70 53 74 72 65 61 | 6d 3b 0d 09 0d 09 69 66 |tcpStrea|m;....if|
|00000350| 20 28 65 72 72 21 3d 6e | 6f 45 72 72 29 0d 09 09 | (err!=n|oErr)...|
|00000360| 44 69 73 70 6f 73 50 74 | 72 28 63 6f 6e 6e 42 75 |DisposPt|r(connBu|
|00000370| 66 66 65 72 29 3b 0d 09 | 09 0d 09 72 65 74 75 72 |ffer);..|...retur|
|00000380| 6e 20 65 72 72 3b 0d 7d | 0d 0d 0d 2f 2f 20 6f 70 |n err;.}|...// op|
|00000390| 65 6e 73 20 74 68 65 20 | 63 6f 6e 6e 65 63 74 69 |ens the |connecti|
|000003a0| 6f 6e 20 74 6f 20 74 68 | 65 20 69 70 20 23 20 61 |on to th|e ip # a|
|000003b0| 6e 64 20 74 63 70 20 70 | 6f 72 74 20 70 61 73 73 |nd tcp p|ort pass|
|000003c0| 65 64 20 69 6e 0d 2f 2f | 0d 0d 4f 53 45 72 72 20 |ed in.//|..OSErr |
|000003d0| 4f 70 65 6e 43 6f 6e 6e | 65 63 74 69 6f 6e 28 53 |OpenConn|ection(S|
|000003e0| 74 72 65 61 6d 50 74 72 | 20 73 74 72 65 61 6d 2c |treamPtr| stream,|
|000003f0| 6c 6f 6e 67 20 61 64 64 | 72 65 73 73 2c 73 68 6f |long add|ress,sho|
|00000400| 72 74 20 20 6f 72 74 29 | 0d 7b 0d 09 4f 53 45 72 |rt  ort)|.{..OSEr|
|00000410| 72 20 65 72 72 3b 0d 09 | 54 43 50 69 6f 70 62 20 |r err;..|TCPiopb |
|00000420| 12 00 11 cc 47 78 40 00 | 11 cc 47 78 40 00 00 01 |....Gx@.|..Gx@...|
|00000430| 00 00 ff ff ff ff ff ff | ff ff a7 2d a7 a7 00 18 |........|...-....|
|00000440| 00 01 00 00 5c 7a 43 4c | 4f 53 00 08 63 6c 6f 73 |....\zCL|OS..clos|
|00000450| 65 72 2e 63 00 00 00 01 | a7 09 97 2b a7 09 97 2b |er.c....|...+...+|
|00000460| a7 09 97 2b 00 1a 00 02 | 00 00 00 13 4d 41 43 48 |...+....|....MACH|
|00000470| 01 0a 4d 61 63 48 65 61 | 64 65 72 73 00 6b 00 01 |..MacHea|ders.k..|
|00000480| a5 bf 4e 6f a5 bf 4e 6f | a5 bf 4e 6f 00 22 00 02 |..No..No|..No."..|
|00000490| 00 00 00 75 4d 41 43 54 | 01 13 4d 61 63 54 43 50 |...uMACT|..MacTCP|
|000004a0| 43 6f 6d 6d 6f 6e 54 79 | 70 65 73 2e 68 00 00 01 |CommonTy|pes.h...|
|000004b0| a5 b8 57 70 a5 b8 57 70 | a5 b8 57 70 00 16 00 02 |..Wp..Wp|..Wp....|
|000004c0| 00 00 00 75 54 43 50 50 | 01 07 54 43 50 50 42 2e |...uTCPP|..TCPPB.|
|000004d0| 68 00 00 00 11 cc 47 78 | 40 00 11 cc 47 78 40 00 |h.....Gx|@...Gx@.|
|000004e0| 00 01 00 00 ff ff ff ff | ff ff ff ff a4 c8 81 bf |........|........|
|000004f0| 00 56 00 00 00 00 0e e8 | 4d 41 43 54 00 46 42 6c |.V......|MACT.FBl|
|00000500| 75 65 67 69 6c 6c 3a 68 | 61 6b 6b 69 6e 67 3a 54 |uegill:h|akking:T|
|00000510| 68 69 6e 6b 20 43 20 35 | 2e 30 3a 54 48 49 4e 4b |hink C 5|.0:THINK|
|00000520| 20 43 20 35 2e 30 20 46 | 6f 6c 64 65 72 3a 4d 61 | C 5.0 F|older:Ma|
|00000530| 63 20 4c 69 62 72 61 72 | 69 65 73 3a 4d 61 63 54 |c Librar|ies:MacT|
|00000540| 72 61 70 73 00 00 00 00 | 00 00 3d 20 6b 54 69 6d |raps....|..= kTim|
|00000550| 65 6f 75 74 3b 0d 09 70 | 00 00 00 01 00 00 00 08 |eout;..p|........|
|00000560| 04 6d 61 69 6e 20 20 20 | 65 6e 2e 72 65 6d 6f 74 |.main   |en.remot|
|00000570| 65 48 6f 73 74 20 3d 20 | 61 64 64 72 65 73 73 3b |eHost = |address;|
|00000580| 0d 09 70 42 6c 6f 63 6b | 2e 63 73 50 61 72 61 6d |..pBlock|.csParam|
|00000590| 2e 6f 70 65 6e 2e 72 65 | 6d 6f 74 65 50 6f 72 74 |.open.re|motePort|
|000005a0| 20 3d 20 70 6f 72 74 3b | 0d 09 70 42 6c 6f 63 6b | = port;|..pBlock|
|000005b0| 2e 63 73 50 61 72 61 6d | 2e 6f 70 65 6e 2e 6c 6f |.csParam|.open.lo|
|000005c0| 63 61 6c 50 6f 72 74 20 | 3d 20 30 3b 0d 09 70 42 |calPort |= 0;..pB|
|000005d0| 6c 6f 63 6b 2e 63 73 50 | 61 72 61 6d 2e 6f 70 65 |lock.csP|aram.ope|
|000005e0| 6e 2e 74 6f 73 46 6c 61 | 67 73 20 3d 20 30 3b 0d |n.tosFla|gs = 0;.|
|000005f0| 09 70 42 6c 6f 63 6b 2e | 63 73 50 61 72 61 6d 2e |.pBlock.|csParam.|
|00000600| 6f 70 65 6e 2e 70 72 65 | 63 65 64 65 6e 63 65 20 |open.pre|cedence |
|00000610| 3d 20 30 3b 0d 09 70 42 | 6c 6f 63 6b 2e 63 73 50 |= 0;..pB|lock.csP|
|00000620| 61 72 61 6d 2e 6f 70 65 | 6e 2e 64 6f 6e 74 46 72 |aram.ope|n.dontFr|
|00000630| 61 67 20 3d 20 30 3b 0d | 09 70 42 6c 6f 63 6b 2e |ag = 0;.|.pBlock.|
|00000640| 63 73 50 61 72 61 6d 2e | 6f 70 65 6e 2e 74 69 6d |csParam.|open.tim|
|00000650| 65 54 6f 4c 69 76 65 20 | 3d 20 30 3b 0d 09 70 42 |eToLive |= 0;..pB|
|00000660| 6c 6f 63 6b 2e 63 73 50 | 61 72 61 6d 2e 6f 70 65 |lock.csP|aram.ope|
|00000670| 6e 2e 73 65 63 75 72 69 | 74 79 20 3d 20 30 3b 0d |n.securi|ty = 0;.|
|00000680| 09 70 42 6c 6f 63 6b 2e | 63 73 50 61 72 61 6d 2e |.pBlock.|csParam.|
|00000690| 6f 70 65 6e 2e 6f 70 74 | 69 6f 6e 43 6e 74 20 3d |open.opt|ionCnt =|
|000006a0| 20 30 3b 0d 09 65 72 72 | 20 3d 20 50 42 43 6f 6e | 0;..err| = PBCon|
|000006b0| 74 72 6f 6c 28 28 50 61 | 72 6d 42 6c 6b 50 74 72 |trol((Pa|rmBlkPtr|
|000006c0| 29 26 70 42 6c 6f 63 6b | 2c 66 61 6c 73 65 29 3b |)&pBlock|,false);|
|000006d0| 0d 0d 09 72 65 74 75 72 | 6e 20 65 72 72 3b 09 09 |...retur|n err;..|
|000006e0| 0d 7d 0d 0d 0d 2f 2f 20 | 64 6f 65 73 20 61 20 73 |.}...// |does a s|
|000006f0| 68 6f 72 74 20 46 54 50 | 20 73 65 73 73 69 6f 6e |hort FTP| session|
|00000700| 2c 20 63 6f 6e 73 69 73 | 74 69 6e 67 20 6f 66 20 |, consis|ting of |
|00000710| 72 65 63 65 69 76 69 6e | 67 20 74 68 65 20 77 65 |receivin|g the we|
|00000720| 6c 63 6f 6d 65 20 6d 65 | 73 73 61 67 65 2c 0d 2f |lcome me|ssage,./|
|00000730| 2f 20 69 73 73 75 69 6e | 67 20 61 20 22 51 55 49 |/ issuin|g a "QUI|
|00000740| 54 22 20 63 6f 6d 6d 61 | 6e 64 2c 20 61 6e 64 20 |T" comma|nd, and |
|00000750| 72 65 63 65 69 76 69 6e | 67 20 74 68 65 20 72 65 |receivin|g the re|
|00000760| 73 70 6f 6e 73 65 0d 2f | 2f 0d 4f 53 45 72 72 20 |sponse./|/.OSErr |
|00000770| 44 6f 46 54 50 43 6f 6e | 6e 53 74 75 66 66 28 53 |DoFTPCon|nStuff(S|
|00000780| 74 72 65 61 6d 50 74 72 | 20 73 74 72 65 61 6d 29 |treamPtr| stream)|
|00000790| 0d 7b 0d 09 4f 53 45 72 | 72 20 65 72 72 3b 0d 09 |.{..OSEr|r err;..|
|000007a0| 54 43 50 69 6f 70 62 20 | 70 42 6c 6f 63 6b 3b 0d |TCPiopb |pBlock;.|
|000007b0| 09 77 64 73 45 6e 74 72 | 79 20 77 64 73 5b 32 5d |.wdsEntr|y wds[2]|
|000007c0| 3b 0d 0d 09 77 64 73 5b | 30 5d 2e 6c 65 6e 67 74 |;...wds[|0].lengt|
|000007d0| 68 20 3d 20 36 3b 0d 09 | 77 64 73 5b 30 5d 2e 70 |h = 6;..|wds[0].p|
|000007e0| 74 72 20 3d 20 22 51 55 | 49 54 5c 72 5c 6e 22 3b |tr = "QU|IT\r\n";|
|000007f0| 0d 09 77 64 73 5b 31 5d | 2e 6c 65 6e 67 74 68 20 |..wds[1]|.length |
+--------+-------------------------+-------------------------+--------+--------+